0 REM(null)
1 SYS5097:PRINT"[147]        BY: [158]DAVE NEALE  P.O. BOX 1324
2 [153]"            MEAFORD, ONTARIO  N0H-1Y0
3 PRINT"[150]ATTENTION:[153] WITH ENOUGH RESPONSE A MORE
4 [153]"DETAILED VERSION COULD BE IN THE WORKS
5 PRINT"THAT WILL INCLUDE THE FOLLOWING:"
6 PRINT"[153]1. [158]SKILL LEVELS   [153]2. [158]A CLASSIC ENDING
7 [153]"PRINT3. SYSKLINGONS FIRE FIRST IF YOU'RE SLOW
8 PRINT"[153]4. [158]PRISONER TAKEN FOR INTERROGATION
9 [153]"PRINT5. SYSKLINGONS SMOKING IF DAMAGED
10 PRINT"[153]6. [158]OTHER CRAFT TYPES, DIPLOMATIC,SPY.
11 [153]"PRINT7. SYSCONDITION RESET AFTER A KILL
12 PRINT"[153]8. [158]SMOOTH SCREEN SCROLLING
13 [153]"PRINT9. SYSBETTER GRAPHICS, MORE MACHINE CODE
14 PRINT"[153]10. [158]HIGH RES SCREEN [153]11.[158] TACTICAL SENSER
15 [153]"PRINT12. SYSNO JUNK LIKE THIS AT THE START
20 PRINT"[153]SO IF YOU LIKE THIS PROGRAM AND WISH TO
21 [153]"SEE AN IMPROVED VERSION, THEN SHOW ME
22 PRINT"YOUR INTEREST BY SENDING [158]$4.00 [153]TO THE
23 [153]"ABOVE ADDRESS. I'M ALSO INTERESTED IN
24 PRINT"ANY COMMENTS OR IDEAS YOU HAVE THAT
25 [153]"COULD BE INCLUDED IN FUTHER VERSIONS.
38 FORX=1TO38000:NEXT
40 X=RND(1-TI):SYS52870
41 REM*****************************
42 REM*       - STAR TREK -       *
43 REM*                           *
44 REM**  ADAPTED BY DAVE NEALE  **
45 REM***                       ***
46 REM**  INSPIRED BY G.SOLOMON  **
47 REM*                           *
48 REM*   A D.G. PRODUCTION INC   *
49 REM*****************************
60 PRINT"[147]":SYS49801:Q$="":O$=""
100 A$="SPACE, THE FINAL FRONTIER":Y=13:X=1
120 B$=MID$(A$,Y,X):Y=Y-1:X=X+2
130 PRINT"[146]"Q$Q$TAB(Y+7)B$:IFY=0THEN220
140 FORI=1TO100:NEXT:GOTO120
220 GOSUB15000:F=0:R9=0:KM=0:GOTO231
230 FORTE=1TO4:DI=INT(RND(1)*39):CH=INT(RND(1)*5)+118:PRINTTAB(DI)"";CHR$(CH);"[146][145]":NEXT:RETURN
231 PRINTQ$Q$TAB(19)"[164][164]":GOSUB230
232 PRINTO$"[213][177][195][195][177][201]":GOSUB230
233 PRINTO$"[164][164][164][164][164][210][210][198][198][195][203][195][177][177][195][202][195][198][198][210][210][164][164][164][164][164]":GOSUB230
234 PRINTO$"[205] [187][187][187].[163][163][163][163][163][163][163][163][163][163][163][163][163][163].[172][172][172] [206]":GOSUB230
235 PRINTO$"[205][164][164][164][164][164][183][183][164][164][164][164][164][164][164][164][183][183][164][164][164][164][164][206]":GOSUB230
236 PRINTO$"[221][221][221][163][197][196][195][198][175][175][198][195][196][197][163][221][221][194]":GOSUB230
237 PRINTO$"[202][177][203][167][164][164][165][202][177][203]":GOSUB230
239 PRINTO$"[205][205][207][166][166][208][206][206]":GOSUB230
240 PRINTO$"[205][205][208][163][163][207][206][206]":GOSUB230
241 PRINTO$"[205][205][164][206][163][163][163][163][205][164][206][206]":GOSUB230
242 PRINTO$"[205][206][206][163][163][163][163][205][205][206]":GOSUB230
243 PRINTO$"[213][165][165] [213][201] [167][167][201]":GOSUB230
244 PRINTO$"[202][165][165] [202][203] [167][167][203]":GOSUB230
245 PRINTO$"[205][205][164][164][164][164][206][206]":GOSUB230
246 PRINTO$"[205][164][164][164][164][206]":GOSUB230:PRINTTAB(19)"[202][203]
250 [129]J[178]1[164]6:[153]:[141]230:[130]J:[129]I[178]1[164]1800:[130]
255 [153][163]8)"ONONONONPHASERS LOCKED ON TARGET":[129]I[178]1[164]500:[130]
258 [153][163]17)"FIRE!!...":[129]I[178]1[164]30:[130]
259 [151]55595,2:[151]55596,2:[151]1323,81:[151]1324,81:[129]I[178]1[164]100:[130]:[141]10000
260 [158]5451:[129]C[178]0[164]48:[151]53280,C:[151]53281,C:[130]:[139]R9[178]1[167][142]
280 [153]"LOAD":[158]49814:[153]"WAIT"Q$"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"[166]12)"(null)LENLENRIGHT$
283 PRINT"[205][175][175][175] [168][168][168][168][168][168][168][168][168] [167][164][175][175][164][164][210][198][195][203][163][163][163][163][202][195][198][210][164][164][164]
284 [153]"(null)TOTOTOTOTOTOTOTOTOTOTOTOTO(null)THENVAL(null)TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO(null)
285 PRINT"[205][164][164][164][164][164][205][160][205][164][164][164][164][206][206]  .[206][197][196][195][198][195][196][197]
286 [153]"(null)NOT(null)(null)(null)...(null)
287 PRINT"[205][220][205][205][206].. [172][165]
288 [153]"ANDASCLEN(null) (null)VALUSRUSRUSRUSRUSRVALSTR$LENASC(null)
289 PRINT"[206][165]   ... [168]    ...[182]#
290 [153]"USRLEN(null)TO...    ****  ABS$
291 PRINT"[163][196][198][175][175][175][175][175][175][175][210][198][195][196][183]
292 [153][163]14)"NCC-1701":[153][163]9)"THE USS ENTERPRISE":[141]40500
400 VI[178]53248:[151]VI[170]27,127:[151]VI[170]21,0:[151]VI[170]40,7:[151]VI[170]41,2:[151]VI[170]42,1:V[178]54272
410 Q$[178]"":Z$[178]"               ":[134]C(9,2),K(3,3),D(9):V[178]54272:[151]V[170]24,31
430 T[178][181]([187](1)[172]20[170]20)[172]100:T0[178]T:T9[178]23[170][181]([187](1)[172]10):D2[178]0:E[178]3000:[151]248,18
440 P[178]12:S9[178]260:S[178]0:B9[178]0:K9[178]0:X9[178]0:X$[178]"":X0$[178]" IS ":[151]249,0:[151]180,30:[151]181,0
460 [150][165]L(L)[178](Q1[172]9[170]Q2)[172]3[170]50450:[150][165]R(R)[178][181]([187](R)[172]7.9[170]1.1)
470 [150][165]D(D)[178][186]((K(I,1)[171]S1)[174]2[170](K(I,2)[171]S2)[174]2):[150][165]B(B)[178][181]([187](B)[172]8.9)
490 Q1[178][165]B(1):Q2[178][165]B(1):S1[178][165]R(1):S2[178][165]R(1)
530 [129]I[178]1[164]9:C(I,1)[178]0:C(I,2)[178]0:[130]I:C(1,2)[178]1:C(2,2)[178]1:C(8,2)[178]1:C(9,2)[178]1
540 [129]M[178]0[164]2:C(2[170]M,1)[178][171]1:C(4[170]M,2)[178][171]1:C(6[170]M,1)[178]1:[130]
670 [129]I[178]1[164]9:D(I)[178]0:[130]I:A2$[178]"123456789"
820 [158]49786:[158]50946:K9[178][194](167):B9[178][194](169):[139]K9[177]T9[167]T9[178]K9[170]1
1100 [139]B9[179][177]0[167]1200
1150 L0[178][165]L(0):[139][194](L0)[179]2[167][151]L0,[194](L0)[170]1:K9[178]K9[170]1
1160 B9[178]1:[151]L0[170]1,1:Q1[178][165]B(1):Q2[178][165]B(1)
1200 K7[178]K9:[139]B9[179][177]1[167]X$[178]"S":X0$[178]" ARECLOSE"
1205 L[178][181]([187](1)[172]81)[172]3:[139][194](50451[170]L)[177]0[176][194](50450[170]L)[179][177]0[167]1205
1210 [151]50452[170]L,0
1220 [153]"LOADSYS   PRIORITY MESSAGE TO USS ENTERPRISE:":[153][163]16)"CODE II"
1225 [153]"DEF"K9"KLINGON WARSHIPSLIST HAVE INVADED THE"
1227 [153]"FEDERATION TERRITORY YOU ARE PATROLLING."
1230 [153][163]12)"SYSYOUR ORDERS ARE:LIST"
1245 [153]"DESTROY ALL ENEMY SHIPS BEFORE THEY"
1250 [153]"ATTACK FEDERATION HEADQUARTERS ON"
1260 [153]"STARDATE"T0[170]T9"CMD. THIS GIVES YOUSYS"T9"DAYSLIST."
1265 [153]"THERE"X0$"PRINTCMD"B9"STARBASE"X$"LIST IN THE GALAXY FOR"
1270 [153]"REPAIRING AND RESUPPLYING YOUR SHIP."
1280 [153][163]9)"HIT ANY KEY WHEN READY"
1300 [161]B$:[139]B$[178]""[167]1300
1320 NQ[178]1:Z4[178]Q1:Z5[178]Q2:K3[178]0:B3[178]0:S3[178]0:G5[178]0:D4[178].5[172][187](1):[141]10500
1330 [151]49345,Q1:[151]49346,Q2:[151]49328,[165]L(0)[171]50450:[158]50696
1430 [141]9030:[139]T0[179][177]T[167]1490
1460 [153]"YOUR MISSION BEGINS WITH YOUR STARSHIP"
1465 [153][163]4)"LOCATED IN THE GALAXY QUADRANTSYS"
1470 [153][163]20[171].5[172][195](G2$));G2$:[137]1500
1490 [153]"NOW ENTERING "G2$" QUADRANT..."
1500 L0[178][165]L(0):K3[178][194](L0):B3[178][194](L0[170]1):S3[178][194](L0[170]2):NB[178]0:[139]S3[177]0[167]1550
1510 NB[178]1:E[178]E[170]S:S[178]0:[141]7920
1515 [153]"SYSWARNING: YOU ARE ENTERING A NEBULA
1517 PRINT"SYSTEM. MOST DEVICES WILL NOT FUNCTION":FORL=0TO3500:NEXT
1550 IFK3=0ORNB=1THEN1590
1560 PRINTTAB(14)"[150]COMBAT AREA":PRINTTAB(7)"ALL HANDS BATTLE STATIONS"
1570 SYS5536:IFS>200THEN1590
1580 PRINTTAB(8)"[158]SHIELDS DANGEROUSLY LOW":SYS5536
1590 FORI=1TO3:K(I,1)=0:K(I,2)=0:K(I,3)=0:NEXT
1680 A$="[193][211][216]":Z1=S1:Z2=S2:L5=0:GOSUB8670:IFK3<1THEN1790
1720 FORI=1TOK3:GOSUB8590:A$="[218][]":Z1=R1:Z2=R2
1780 GOSUB8670:K(I,1)=R1:K(I,2)=R2:K(I,3)=S9*(.5+RND(1)):NEXTI
1790 IFNB=0THENFORSN=1TOINT(RND(1)*5):GOSUB8590:A$="[215][169][215]":Z1=R1:Z2=R2:GOSUB8670:NEXT
1820 IFB3<1THEN1910
1880 GOSUB8590:A$="#[214]\":Z1=R1:B4=R1:Z2=R2:B5=R2:GOSUB8670
1910 IFNB=0THENFORI=1TOS3:GOSUB8590:A$="%&_":Z1=R1:Z2=R2:GOSUB8670:NEXTI
1980 GOSUB6430:PR=0
1990 IFS+E>10ORD0=0THENIFE>10ORD(7)>=0THEN2060
1995 IFD0=1ANDE+S>10THEN2060
2020 PRINTTAB(11)"[150]*** FATAL ERROR ***[155]"
2023 PRINT"YOU'VE JUST STRANDED YOUR SHIP IN SPACE"
2025 PRINT"YOU'VE INSUFFICIENT MANEUVERING ENERGY"
2040 PRINT"SHIELD CONTROL IS PRESENTLY INCAPABLE"
2045 PRINT"OF CROSS CIRCUITING TO THE ENGINES!!":GOSUB6220
2060 POKE752,0:GOSUB9500:SYS5168:IFPEEK(53168)=1THEN2160
2140 B=PEEK(52961):ONBGOTO2300,1980,4000,4260,4700,5530,5690,7290,11000
2160 IFB=221THEN1990
2170 PRINT"[158]ENTER ONE OF THE FOLLOWING"
2180 PRINT"  1 = SET COURSE
2190 [153]"  2 = SHORT RANGE SCAN
2200 PRINT"  3 = LONG RANGE SCAN
2210 [153]"  4 = FIRE PHASERS
2220 PRINT"  5 = FIRE PHOTON TORPEDOES
2230 [153]"  6 = RAISE/LOWER SHIELDS
2240 PRINT"  7 = DAMAGE CONTROL REPORTS
2250 [153]"  8 = ENABLE LIBRARY COMPUTER
2260 PRINT"  9 = ENABLE TRACTOR BEAM":GOTO1990
2290 REM*****
2300 INPUT"  COURSE  [191][157][157][157]";C1$:C1=VAL(C1$):IFC1=0THEN1990
2310 IFC1>=1ANDC1<9THEN2350
2330 PRINT" LT. SULU REPORTS INCORRECT COURSE DATA":GOTO1990
2350 X$="8":IFD(1)<0THENX$="0.2"
2360 PRINTTAB(15)"[145]WARP FACTOR(0-";X$;")  [191][157][157][157]";
2370 INPUTW1$:W1=VAL(W1$):IFW1=0THEN1990
2375 IFD(1)<0ANDW1>.2THEN2470
2380 IFW1>0ANDW1<=8THEN2490
2390 IFW1=0THEN1990
2420 PRINT"[158]CHIEF ENGINEER SCOTT REPORTS THE WARP"
2430 PRINT"ENGINES NOT CAPABLE OF WARP";W1"!":GOTO1990
2470 PRINT"[158]WARP ENGINES DAMAGED. MAXIMUM SPEED ON"
2480 PRINT"IMPULSE ENGINES IS WARP O.2":GOTO1990
2490 N=INT(W1*8+.5):IFE-N>=0THEN2585
2500 PRINT"[158]ENGINEERING REPORTS: NOT ENOUGH ENERGY
2510 [153]"AVAILABLE FOR MANEUVERING AT WARP";W1;"!LIST"
2530 [139]S[179]N[171]E[176]D(7)[179]0[167]1990
2550 [153]"DEFLECTOR CONTROL REPORTSSYS";S;"LISTUNITS"
2555 [153]"OF ENERGY DEPLOYED TO SHIELDS.":[137]1990
2585 [141]6000:[137]3070
2590 [129]I[178]1[164]3:[139]K(I,3)[179]10[176]NB[178]1[167]2700
2600 A$[178]"":Z1[178]K(I,1):Z2[178]K(I,2):[141]8670:[141]7940
2607 Y0[178]K(I,1):X0[178]K(I,2):KM[178]1:[139]TB[178]1[167]2612
2610 WK[178][187](1)[172].3[170].1:N%[178]8[172]WK[170].5:G[178][187](1)[172]8.9
2612 [141]7900:[129]J[178]1[164]N%:K(I,1)[178]K(I,1)[170]F1:K(I,2)[178]K(I,2)[170]F2
2615 [139]K(I,1)[179]1[176]K(I,1)[177]8[176]K(I,2)[179]1[176]K(I,2)[177]8[167]2623
2620 S8[178][181](K(I,1))[172]24[170][181](K(I,2))[172]3[171]26[170]50001:[139][194](S8)[178]29[167]2630
2621 [139][194](S8)[178]169[167]FL[178]1:[137]2635
2623 K(I,1)[178][181](K(I,1)[171]F1):K(I,2)[178][181](K(I,2)[171]F2):Y1[178]K(I,1):X1[178]K(I,2)
2625 [141]15400:[137]2640
2630 [130]J
2635 K(I,1)[178][181](K(I,1)):K(I,2)[178][181](K(I,2)):Y1[178]K(I,1):X1[178]K(I,2):[141]15400
2640 A$[178]"(null)[]":Z1[178]K(I,1):Z2[178]K(I,2):[141]8670
2690 [139]TB[178]1[167][142]
2700 [130]I:KM[178]0
2760 D1[178]0:D6[178]W1:[139]W1[177][178]1[167]D6[178]1
2770 [129]I[178]1[164]9:[139]D(I)[177][178]0[167]2880
2790 D(I)[178]D(I)[170]D6:[139]D(I)[177][171].1[175]D(I)[179]0[167]D(I)[178][171].1:[137]2880
2800 [139]D(I)[179]0[167]2880
2810 [139]D1[179][177]1[167]D1[178]1:[153]"SYSDAMAGE CONTROL REPORTS:"
2840 R1[178]I:[141]8790:[153]G2$" REPAIR COMPLETED."
2880 [130]I:[139][187](1)[177].2[167]3050
2910 R1[178][165]B(1)[170]1:[139][187](1)[177].6[167]3000
2915 [139]S[178]0[167]DS[178][187](1)[172]5[170]1:[137]2930
2920 DS[178]([187](1)[172]6[170]1)[172](500[173]S):[139]DS[177]5.5[167]DS[178][187](1)[170]5
2930 D(R1)[178]D(R1)[171]DS:[153]"DEFDAMAGE CONTROL REPORTS:"
2960 [141]8790:[153]G2$" DAMAGEDLIST":[137]3040
3000 D(R1)[178]D(R1)[170][187](1)[172]3[170]1:[153]"PRINTDAMAGE CONTROL REPORTS:"
3030 [141]8790:[153]G2$" STATUS IMPROVEDLIST"
3040 [139]D(R1)[179][171]5[176]D(R1)[177]5[167]D(R1)[178][180](D(R1))[172]5
3050 [142]
3070 A$[178]"":Z1[178]S1:Z2[178]S2:[141]8670:[141]7940
3110 X0[178][181](S2):Y0[178][181](S1):G[178]C1:[141]7900:F3[178]F1:F4[178]F2:X[178]S1:Y[178]S2:Q4[178]Q1:Q5[178]Q2
3170 [129]I[178]1[164]N:S1[178]S1[170]F1:S2[178]S2[170]F2:[139]S1[179]1[176]S1[177]8[176]S2[179]1[176]S2[177]8[167][137]3500
3240 S8[178][181](S1)[172]24[170][181](S2)[172]3[171]26[170]50001:[139][194](S8)[178]29[167]3360
3250 [139][194](S8)[178]169[167]HM[178]1:X7[178][181](S2):Y7[178][181](S1):[137]3360
3320 S1[178][181](S1[171]F1):S2[178][181](S2[171]F2):Y1[178]S1:X1[178]S2:[141]3482:[158]5712
3330 [153][163]13)"DEFBAD NAVIGATION":[153][163]9)"SYSWARP ENGINES SHUT DOWN":[137]3370
3360 [130]I:S1[178][181](S1):S2[178][181](S2):Y1[178]S1:X1[178]S2:[141]3482
3366 [139]HM[178]1[167][141]16100
3370 S0[178]0:A$[178]"ATN(null)(null)":Z1[178][181](S1):Z2[178][181](S2):[141]8670:[141]3905:T8[178]1
3430 [139]W1[179]1[167]T8[178].1[172][181](10[172]W1)
3450 T[178]T[170]T8:[139]T[177]T0[170]T9[167]6220
3475 [139][194](1665)[178]64[176][194](1705)[178]64[167][141]2590:PR[178]1:[137]1980
3480 [141]2590:[129]TD[178]1[164]1000:[130]:[137]1980
3482 [139]HM[178]1[175]([194](1705)[179][177]64[175]PC[178]0)[167][158]5451:[142]
3483 [141]15400:[142]
3500 Y1[178][181](S1[171]F1):X1[178][181](S2[171]F2):SO[178]1:[141]3482:SO[178]0:SC[178]0:PC[178]0:[141]2760
3510 X[178]8[172]Q1[170]X[170]N[172]F3:Y[178]8[172]Q2[170]Y[170]N[172]F4:Q1[178][181](X[173]8):Q2[178][181](Y[173]8):S1[178][181](X[171]Q1[172]8)
3550 S2[178][181](Y[171]Q2[172]8):[139]S1[178]0[167]Q1[178]Q1[171]1:S1[178]8
3590 [139]S2[178]0[167]Q2[178]Q2[171]1:S2[178]8
3620 X5[178]0:[139]Q1[179]0[167]X5[178]1:Q1[178]0:S1[178]1:[137]3710
3670 [139]Q1[177]8[167]X5[178]1:Q1[178]8:S1[178]8
3710 [139]Q2[179]0[167]X5[178]1:Q2[178]0:S2[178]1:[137]3790
3750 [139]Q2[177]8[167]X5[178]1:Q2[178]8:S2[178]8
3790 [139]X5[178]0[167]3850
3800 [153]"LT.UHURA REPORTS MESSAGE FROM STARFLEET"
3805 [153]"COMMAND: PERMISSION TO CROSS GALACTIC"
3810 [153]"PERIMETER IS HEREBY SYS*DENIED*LIST"
3850 [139]T[177]T0[170]T9[167][153]"DEF TIME HAS RUN OUTLIST.":[137]6220
3860 [139]8[172]Q1[170]Q2[178]8[172]Q4[170]Q5[167]3370
3865 [139]ET[177]0[167]ET[178]ET[171]1
3870 T[178]T[170]1:[141]3905:[137]1320
3905 [139]HM[177]0[167][153][163]4)"DEFSPACE MINE HIT, SHIELDS DAMAGED":S[178]S[171]500:HM[178]0
3907 [139]S[179]0[167]6220
3910 E[178][181](E[171]N[172]1.5[171]15):[141]7920:[139]E[177][178]0[167][142]
3930 [153]"SYSSHIELD CONTROL SUPPLIES ENERGY TO":[153]"COMPLETE THE MANEUVERLIST"
3940 S[178]S[170]E:E[178]0:[141]7920:[139]S[179][178]0[167]S[178]0
3980 [142]
4000 [139]D(3)[179]0[176]NB[178]1[167][153]"DEF     LONG RANGE SENSORS INOPERABLE":[137]1990
4030 [141]16450:[153]"SYSLONG RANGE SCAN FOR":[153]"  QUADRANT "Q1[170]1","Q2[170]1
4040 [158]5712:[158]51285:[153]Q$Q$"":[137]1990
4260 [139]D(4)[179]0[176]NB[178]1[167][153]"DEF          PHASERS INOPERATIVE":[137]1990
4265 [139]K3[177]0[167]4280
4270 [153]"SCIENCE OFFICER SPOCK REPORTS: SENSORS"
4275 [153]"SHOW NO ENEMY SHIPS IN THIS QUADRANT":[137]1990
4280 [139]E[179][178]0[167][153]"     SYSINSUFFICIENT ENERGY AVAILABLE":[137]1990
4330 [139]D(8)[179]0[167][153]"SYSCOMPUTER FAILURE HAMPERS ACCURACY."
4350 [153]"    SYSENERGY AVAILABLE =PRINT"E"SYSUNITS
4360 PRINT"    [153]TARGETING COMPUTER LOCKED ON"
4370 INPUT"[158]    NUMBER OF UNITS TO FIRE   [191][157][157][157][153]";X$:X=VAL(X$):IFX<=0THEN1990
4380 GOSUB7940:GOSUB7950
4400 IFE-X<0THEN4360
4410 E=E-X:GOSUB7920:IFD(8)<0THENX=X*RND(1)
4450 H=INT(X/K3):FORI=1TO3:IFK(I,3)<=0THENGOSUB13500:GOTO4670
4460 X0=S2:Y0=S1:X1=K(I,2):Y1=K(I,1):GOSUB10000:IFD(2)>=0THENGOSUB15400
4480 H1=INT((H/FND(1))*(RND(1)+1.5)):IFH1>HTHENH1=H
4490 IFH1>.15*K(I,3)THENK(I,3)=K(I,3)-H1:GOTO4550
4500 GOSUB13280:GOTO4670
4550 IFK(I,3)<=0THENSYS5451:GOSUB12400:GOSUB13000:IFD(2)>=0THEN4580
4555 IFK(I,3)<=0THENFORTL=1TO700:NEXT:SYS5485:GOTO4580
4560 GOSUB13000:GOTO4670
4580 K3=K3-1:K9=K9-1:Z1=K(I,1):Z2=K(I,2):A$="":GOSUB8670
4650 K(I,3)=0:IFNB=0THENL0=FNL(0):POKEL0,(PEEK(L0)-1):GOSUB10500
4660 IFK9<=0THEN6370
4670 NEXTI:GOSUB14100:GOSUB6000:DM=0
4675 IFK3=0THENPRINTTAB(5)"[158]SECURE FROM GENERAL QUARTERS"
4680 GOTO1990
4700 IFP<=0THENPRINT"[158]ALL PHOTON TORPEDOES EXPENDED":GOTO1990
4730 IFD(5)<0THENPRINT"[150]        PHOTON TUBES INOPERATIVE":GOTO1990
4760 INPUT"      PHOTON TORPEDO COURSE  [191][157][157][157]";C1$:G=VAL(C1$):IFG=0THEN1990
4770 IFG=9THENG=1
4780 IFG>=1ANDG<9THEN4830
4790 PRINT"ENSIGN CHEKOV REPORTS: INCORRECT COURSE":PRINT"DATA SIR!":GOTO1990
4830 X=S1:Y=S2:IFKD=0THENS=S-5:P=P-1
4835 IFDM=1ANDKD=1THENFORTD=0TO1200:NEXT:DM=0
4840 GOSUB7940:GOSUB7950
4850 GOSUB7900
4910 IFD(2)<0ANDKD=0THENPRINT"[158]TORPEDO TRACK:";
4915 Y0=X:X0=Y:X3=0:Y3=0:IFD(2)<0ANDKD=0THENGOSUB10200
4960 X=X+F1:Y=Y+F2:X3=INT(X+.5):Y3=INT(Y+.5):X1=Y3:Y1=X3
4965 IFX3<1ORX3>8ORY3<1ORY3>8THEN5480
5000 IFD(2)<0ANDKD=0THENPRINTTAB(15)X3","Y3
5010 A$="":GOSUB5500:IFZ3=1THEN4960
5060 A$="[218][]":GOSUB5500:IFZ3=0THEN5195
5065 IFKD=1THEN4960
5110 GOSUB15400:SYS5451:GOSUB12100:K3=K3-1:K9=K9-1
5112 IFD(2)<0THENFORTD=0TO999:NEXT:SYS5485
5115 PRINTTAB(7)"[153]*** KLINGON DESTROYED ***"
5117 IFK3=0THENPRINTTAB(5)"[158]SECURE FROM GENERAL QUARTERS[155]"
5120 IFK9<=0THEN6370
5150 FORI=1TO3:IFX3=K(I,1)ANDY3=K(I,2)THENK(I,3)=0:GOTO5465
5180 NEXTI
5195 A$="[193][211][216]":GOSUB5500:IFZ3=0THEN5210
5200 EH=1:GOSUB15400:GOTO17040
5210 A$="%&_":GOSUB5500:IFZ3=0THEN5280
5240 GOSUB15400:IFKD=1THEN17040
5260 PRINT"STAR AT";X3;",";Y3;"ABSORBED TORPEDO ENERGY.":GOSUB6000:GOTO1990
5280 A$="#[214]\":GOSUB5500:IFZ3=0THEN5415
5330 GOSUB15400:SYS5451:GOSUB12100:PRINTTAB(7)"[153]*** STARBASE DESTROYED ***[155]"
5340 B3=B3-1:B9=B9-1:IFKD=1THEN5465
5400 PRINT"STARFLEET COMMAND REVIEWING YOUR RECORD"
5410 PRINT"TO CONSIDER COURT MARTIAL!":D0=0:GOTO5465
5415 A$="[215][169][215]":GOSUB5500:IFZ3=0THEN5480
5423 IFKD=1THEN4960
5425 GOSUB15400:SYS5451:GOSUB12100:PRINTTAB(6)"[153]*** SPACE MINE DESTROYED ***[155]"
5465 Z1=X:Z2=Y:A$="":GOSUB8670
5470 L0=FNL(0):POKEL0,K3:POKEL0+1,B3:GOSUB10500:IFKD=1THEN17040
5475 GOSUB6000:GOTO1990
5480 GOSUB15400:IFKD=1THEN17040
5490 IFD(2)<0THENPRINTTAB(9)"[158]TORPEDO MISSED TARGET[155]"
5495 GOTO5475
5500 Z1=X:Z2=Y:GOSUB8830:RETURN
5530 IFD(7)<0ORNB=1THENPRINT"[150]       SHIELD CONTROL INOPERATIVE":GOTO1990
5560 PRINT"ENERGY AVAILABLE =[153]";E+S:INPUT"[155]NUMBER OF UNITS TO SHIELDS   [191][157][157][157][153]";X$
5570 X=VAL(X$):IFX$="[191]"THEN1990
5580 IFX<0ORS=XTHENPRINTTAB(7)"[158]*** SHIELDS UNCHANGED ***":GOTO1990
5590 IFX<=E+STHEN5630
5600 PRINTTAB(7)"[158]DEFLECTOR CONTROL REPORTS"
5605 PRINT"  THIS IS NOT THE FEDERATION TREASURY"
5610 PRINTTAB(7)"[158]*** SHIELDS UNCHANGED ***[155]":GOTO1990
5630 E=E+S-X:S=X:GOSUB7920:SYS52731:PRINT"[145]"
5660 PRINT"SHIELDS AT[153]";INT(S);"[155]UNITS PER REQUEST":GOTO1990
5690 IFD(6)>=0THEN5900
5700 PRINT"[150]  DAMAGE CONTROL REPORT NOT AVAILABLE[155]":IFD0=0THEN1990
5720 D3=0:FORI=1TO9:IFD(I)<0THEND3=D3+.1
5760 NEXTI:IFD3=0THEN1990
5780 D3=D3+D4:IFD3>=1THEND3=.9
5810 PRINT"TECHNICIANS STANDING FOR REPAIRS"
5815 PRINT"ESTIMATED TIME:";.01*INT(100*D3)"STARDATES
5840 [133]"WILL YOU AUTHORIZE REPAIR (Y/N)";A$:[139]A$[179][177]"Y"[167]1990
5870 [129]I[178]1[164]9:[139]D(I)[179]0[167]D(I)[178]0
5890 [130]I:T[178]T[170]D3
5900 [153]"LOAD"[163]13)"PRINTDAMAGE CONTROL":[153][163]13)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
5910 [153]"SYSDEVICE"[166]14)"STATE OF REPAIR":[153][163]17)"0   1   2   3   4   5LIST"
5920 [129]R1[178]1[164]9:[141]8790:CL[178]153:[139]D(R1)[178]0[167]CL[178]158:[137]5935
5930 [139]D(R1)[179]0[167]CL[178]28
5935 S1$[178]"NEW":[153]G2$;[163]17);[199](CL);[163]17);
5940 [129]DL[178]0[164][182](D(R1))[172]4[171]1:[153]S1$;:[130]:[153]"ONLIST";[199](13)
5950 [130]R1:[153]:[139]D0[179][177]0[167]5720
5980 [137]1990
6000 [139]K3[179][178]0[167][142]
6010 [139]D0[178]1[167][153]"PRINTSTARBASE SHIELDS PROTECT THE ENTERPRISE":[142]
6040 [129]I[178]1[164]3:[139]K(I,3)[179][178]10[167]6200
6050 [158]5712:[139][187](1)[177].5[176]NB[178]1[167]KD[178]1:[137]17000
6060 H[178][181]((K(I,3)[173][165]D(1))[172](2[170][187](1))):S[178]S[171]H:K(I,3)[178]K(I,3)[173](3[170][187](1)):[141]7940
6065 KP[178]1:Y0[178]K(I,1):X0[178]K(I,2):Y1[178]S1:X1[178]S2:[141]15400:KP[178]0:PC[178]0:SC[178]0
6080 [158]5507:[153][163]4)H"DEFUNITS HIT FROM SECTOR"K(I,1);",";K(I,2)
6085 [139]S[179]0[167]S[178]0
6090 [141]7920:[139]S[178]0[175]NB[178]0[167]6240
6095 [139]NB[178]1[167]H[178]1:S[178]1:[137]6140
6100 [153][163]7)"SYSSHIELDS DOWN TODEF";S;"SYSUNITSLIST":[139]H[179]20[175]KD[178]0[167]6200
6120 [139][187](1)[177].6[167]6200
6130 [139]KD[178]1[167]H[178][181]([165]D(0)[172]300)
6140 R1[178][165]B(1)[170]1:D(R1)[178]D(R1)[171]H[173]S[171].5[172][187](1):[141]8790
6170 DM[178]1:[153]"DEFDAMAGE CONTROL REPORTS: ":[153]G2$;" DAMAGED BY THE HIT.LIST"
6180 [141]3040
6200 [139]K(I,3)[179][178]0[176]K(I,3)[177][178]10[167]6215
6205 [153]"SYSSENSORS: KLINGON AT "K(I,1)","K(I,2)" POWER LOW"
6215 [130]I:KD[178]0:[142]
6220 [158]5485:R9[178]1:[141]260:R9[178]0:[153]"IT IS STARDATE"T
6230 [153]"THERE WERE";[181](T0[170]T9[171]T);" STARDATES LEFT.":[137]6270
6240 [153]"THE ENTERPRISE HAS BEEN DESTROYED. THE"
6250 [153]"FEDERATION WILL BE CONQUERED":[137]6220
6270 [153]"THERE WERE";K9;"KLINGON BATTLE CRUISERS"
6280 [153]"LEFT AT THE END OF YOUR MISSION."
6290 [139]B9[177]0[167]6310
6295 [153]"DEFYOU HAVE LOST ALL YOUR STARBASES SO THE"
6300 [153]"SIMULATION IS OVER
6305 PRINT"THE SELF DESTRUCT SEQUENCE HAS STARTED."
6307 FORX=0TO20000:NEXT:GOTO6360
6310 PRINT"THE FEDERATION IS IN NEED OF A NEW STAR"
6315 PRINT"SHIP COMMANDER FOR A SIMILAR MISSION --"
6320 PRINT"IF THERE IS A VOLUNTEER, LET HIM STEP"
6330 INPUT"FORWARD AND ENTER AYE";A$:IFA$="AYE"THENRESTORE:CLR:GOTO60
6360 SYS64738
6370 PRINT"CONGRATULATION CAPTAIN,THE LAST KLINGON"
6375 PRINT"BATTLE CRIUSER HAS BEEN DESTROYED."
6400 PRINT"YOUR EFFICIENCY RATING IS"INT((1000*(K7/(T-T0))^2)*100)/100
6410 GOSUB15000:GOTO6290
6430 POKE49394,((S1-1)*8+S2-1)*3:POKE49404,S1:POKE49405,S2:SYS51062
6450 IFPEEK(49406)=1THEN6570
6545 D0=0:IFPR=1ANDNB=0THENRETURN
6550 GOTO6650
6570 IFD(8)<0THENGOSUB23200
6620 D0=1:E=3000:P=12:S=0:GOSUB7920:ET=0:GOTO6730
6650 PRINT"[147]":IFK3>0ANDNB=0THENC$="*RED*":CO=150:GOTO6730
6660 C$="GREEN":CO=153:IFE<50ORNB=1THENC$="YELLOW":CO=158
6730 IFD(2)<0THENPRINTTAB(4)"[150]SHORT RANGE SENSORS INOPERATIVE":RETURN
6740 IFNB=1THENSYS5397:GOTO6780
6770 IFNQ=1THENSYS4608:NQ=0:GOTO6780
6775 SYS4616
6780 PRINT"":IFNB=1THENSYS5232:GOTO6795
6790 SYS49152
6795 SYS52133
7000 PRINT"";:IFD0=0THENPRINTTAB(9)CHR$(CO);"CONDITION "C$:GOTO7165
7100 PRINT"[153]    DOCKED - SHIELDS DROPPED"
7165 PRINT"[146]"Q$Q$Q$"[158]STARDATE ";INT(T*10)*.1;TAB(19)"QUADRANT"Q1+1","Q2+1;
7168 PRINT"BASES":PC=0:SC=0
7170 PRINT"[159]TORPEDOS   ";INT(P);TAB(19)"[150]KLINGONS   ";INT(K9)" "B9"[155]":RETURN
7290 IFD(8)<0ORNB=1THENPRINT"[150]         COMPUTER INOPERATIVE":GOTO1990
7320 PRINT"[153]COMPUTER ACTIVE - AWAITING COMMAND[155]":SYS5100:SYS5712
7330 GETB1$:IFB1$=""THEN7330
7340 A=VAL(B1$):IFA=0ORA>5THEN7360
7350 H8=1:ONAGOTO7543,8070,8500,8150,7400
7360 PRINT"[158]INFO AVAILABLE FROM LIBRARY COMPUTER"
7370 PRINT"   1 = CUMULATIVE GALACTIC RECORD
7374 [153]"   2 = PHOTON TORPEDO DATA
7376 PRINT"   3 = STARBASE NAVIGATION DATA
7378 [153]"   4 = DIRECTION/DISTANCE CALCULATOR
7380 PRINT"   5 = GALAXY SECTOR NAME MAP":GOTO7320
7400 H8=0:G5=1:PRINT"[147]"TAB(12)"THE GALACTIC REGION":GOTO7550
7543 PRINT"[147]"TAB(9)"GALACTIC SECTOR RECORD
7544 [153][163]13)"QUADRANT"Q1[170]1","Q2[170]1
7550 [153]"    1   2   3   4   5   6   7   8   9":[139]H8[178]0[167]7630
7560 [151]49412,Q2:[151]49414,Q1:[158]49600
7580 [153]"1CMD2CMD3CMD4CMD5CMD6CMD7CMD8CMD9":[137]1990
7630 [158]49893:[129]J[178]0[164]8:[153]J[170]1;
7740 Z4[178]J:Z5[178]1:[141]9030:J0[178][181](13[171].5[172][195](G2$)):[153][163]J0)G2$;
7800 Z5[178]6:[141]9030:J0[178][181](31[171].5[172][195](G2$)):[153][163]J0)G2$
7850 [158]49893:[130]:[137]1990
7900 F1[178]C(G,1)[170](C(G[170]1,1)[171]C(G,1))[172](G[171][181](G))
7910 F2[178]C(G,2)[170](C(G[170]1,2)[171]C(G,2))[172](G[171][181](G)):[142]
7920 [151]248,(E[170]S)[173]165[170].5:[151]249,S[173]165[170].5:[151]180,(E[170]S)[173]100[170].5:[151]181,S[173]100[170].5
7930 [158]52440:[153]"ON":[142]
7940 [139][194](1665)[178]64[167]PC[178][171]40:SC[178][171]8
7941 [142]
7950 [139][194](1665)[179][177]64[175][194](1705)[179][177]64[167][141]6650
7951 [142]
8070 [139]K3[179][178]0[167]4270
8080 X$[178]"":[139]K3[177]1[167]X$[178]"S"
8090 [153]"FROM ENTERPRISE TO BATTLE CRUISER";X$:F[178]1
8100 H8[178]0:[129]J[178]1[164]3:[139]K(J,3)[179][178]0[167]8480
8110 A1[178]K(J,1):B1[178]K(J,2)
8120 A0[178]S1:B0[178]S2:[137]8220
8150 [153]"DIRECTION/DISTANCE CALCULATOR:"
8160 [153]"YOU ARE AT QUADRANT "Q1[170]1","Q2[170]1:F[178]10
8165 [153][163]13)"SECTOR "S1","S2
8170 [153]"PLEASE ENTER":[133]"INITIAL COORDINATES (Y/X)   SINCMDCMDCMD";A0,B0
8200 [133]"  FINAL COORDINATES (Y/X)   SINCMDCMDCMD";A1,B1
8220 X[178][182](B1[171]B0):A[178][182](A0[171]A1):[139]X[178]0[175]A[178]0[167]8150
8230 [139]B1[171]B0[179]0[167]8350
8250 [139]A0[171]A1[179]0[167]8410
8260 [139]B1[171]B0[177]0[167]8280
8270 [139]A[178]0[167]C[178]5:[137]8290
8280 C[178]1
8290 [139]A[179][178]X[167]8330
8310 DI[178][181]((C[170](((A[171]X)[170]A)[173]A))[172]100)[173]100:[137]8455
8330 DI[178][181]((C[170](A[173]X))[172]100)[173]100:[137]8455
8350 [139]A0[171]A1[177]0[167]C[178]3:[137]8420
8360 [139]X[179][177]0[167]C[178]5:[137]8290
8410 C[178]7
8420 [139]A[177][178]X[167]8450
8430 DI[178][181]((C[170](((X[171]A)[170]X)[173]X))[172]100)[173]100:[137]8455
8450 DI[178][181]((C[170](X[173]A))[172]100)[173]100
8455 [139]KD[178]1[167][142]
8458 DS[178]A:[139]A[179]X[167]DS[178]X
8459 [139]F[178]1[167]DS[178][186](X[174]2[170]A[174]2)
8460 [153]"DISTANCE =";[181](DS[172]10[172]F)[173]100;[163]18)"DIRECTION ="DI
8470 [139]H8[178]1[167]1990
8480 [130]J:[137]1990
8500 [139]B3[179][177]0[167][153]"FROM ENTERPRISE TO STARBASE:":A1[178]B4:B1[178]B5:F[178]1:[137]8120
8510 [153]"MR. SPOCK REPORTS SENSORS SHOW NO"
8515 [153]"STARBASES IN THIS QUADRANT":[137]1990
8590 R1[178][165]R(1):R2[178][165]R(1):A$[178]"":Z1[178]R1:Z2[178]R2:[141]8830:[139]Z3[178]0[167]8590
8600 [142]
8670 S8[178][182]([181](Z2[171].5)[172]3[170][181](Z1[171].5)[172]24[170]1[170]50000)
8710 [139]L5[178]1[167]8730
8720 [158]49304:L5[178]1
8730 [151]S8,[198]([200](A$,1)):[151]S8[170]1,[198]([202](A$,2,1)):[151]S8[170]2,[198]([201](A$,1))
8760 [142]
8790 [145]R1[137]8792,8794,8796,8798,8800,8802,8804,8806,8808
8792 G2$[178]"WARP ENGINES":[142]
8794 G2$[178]"SHORT RANGE SCAN":[142]
8796 G2$[178]"LONG RANGE SCAN":[142]
8798 G2$[178]"PHASER CONTROL":[142]
8800 G2$[178]"PHOTON TUBES":[142]
8802 G2$[178]"DAMAGE CONTROL":[142]
8804 G2$[178]"SHIELD CONTROL":[142]
8806 G2$[178]"LIBRARY COMPUTER":[142]
8808 G2$[178]"TRACTOR BEAM":[142]
8830 Z1[178][181](Z1[170].5):Z2[178][181](Z2[170].5):S8[178](Z2[171]1)[172]3[170](Z1[171]1)[172]24[170]50002:Z3[178]0
8890 [139][194](S8)[179][177][198]([202](A$,2,1))[167][142]
8900 Z3[178]1:[142]
9030 [139]Z5[179][178]5[167][145]Z4[170]1[137]9040,9050,9060,9070,9080,9090,9100,9110,9115
9035 [137]9120
9040 G2$[178]"ANTARES":[137]9210
9050 G2$[178]"RIGEL":[137]9210
9060 G2$[178]"PROCYON":[137]9210
9070 G2$[178]"VEGA":[137]9210
9080 G2$[178]"CANOPUS":[137]9210
9090 G2$[178]"ALTAIR":[137]9210
9100 G2$[178]"SAGITTARIUS":[137]9210
9110 G2$[178]"POLLUX":[137]9210
9115 G2$[178]"ORION":[137]9210
9120 [145]Z4[170]1[137]9130,9140,9150,9160,9170,9180,9190,9200,9205
9130 G2$[178]"SIRIUS":[137]9210
9140 G2$[178]"DENEB":[137]9210
9150 G2$[178]"CAPELLA":[137]9210
9160 G2$[178]"BETELGEUSE":[137]9210
9170 G2$[178]"ALDEBARAN":[137]9210
9180 G2$[178]"REGULUS":[137]9210
9190 G2$[178]"ARCTURUS":[137]9210
9200 G2$[178]"SPICA":[137]9210
9205 G2$[178]"CYGNUS"
9210 [139]G5[179][177]1[167][145]Z5[170]1[137]9230,9240,9250,9260,9270,9230,9240,9250,9260
9220 [142]
9230 G2$[178]G2$[170]" I":[142]
9240 G2$[178]G2$[170]" II":[142]
9250 G2$[178]G2$[170]" III":[142]
9260 G2$[178]G2$[170]" IV":[142]
9270 G2$[178]G2$[170]" V":[142]
9500 [151]V[170]22,255:[151]V[170]6,240:[151]V[170]1,45
9510 [151]V[170]4,33:[129]N[178]1[164]35:[130]
9520 [151]V[170]4,32:[151]V[170]22,88:[142]
10000 [151]V[170]22,255
10010 [151]V[170]5,128:[151]V[170]6,128
10020 [129]N[178]10[164]60[169].5
10030 [151]V[170]1,N:[151]V[170]4,17:[130]N
10040 [151]V[170]4,16:[151]V[170]22,88:[158]5440
10140 [142]
10200 [158]5440:[151]V[170]22,220:[151]V[170]23,247:[151]V[170]5,128:[151]V[170]6,128
10205 [151]V[170]5[170]7,128:[151]V[170]6[170]7,128
10210 [129]N[178]60[164]10[169][171]2:[151]V[170]1,N:[151]V[170]8,N:[151]V[170]4,129:[151]V[170]11,33
10220 [130]:[151]V[170]4,128:[151]V[170]11,32:[151]V[170]22,88:[158]5440:[142]
10500 L0[178][165]L(0)
10510 GS[178]L0[171]250:[129]TL[178]0[164]2:[151]GS[170]TL,[194](L0[170]TL)[170]48:[130]:[142]
11000 [139]D(9)[179]0[176]NB[178]1[167][153]"DEF         TRACTOR BEAM INOPERABLE":[137]1990
11005 [139]K3[177]1[167][153]"SYS      TOO MANY TARGETS FOR LOCK ON":[137]1990
11010 [139]K3[178]0[167][153]"SYS  NO TARGETS LOCATED FOR TRACTOR BEAM":[137]1990
11100 [129]I[178]1[164]3:[139]K(I,3)[178]0[167]11140
11102 [141]7940:[141]7950:[153]"SYS          TRACTOR BEAM ENGAGED":S[178]S[171]10:[141]7920
11103 [139]K(I,3)[179]10[167]11110
11105 [153]"DEFKLINGON POWER LEVELS TOO HIGH FOR BEAMLIST":J[178]I:[141]6000:I[178]J:[137]1990
11110 TB[178]1:B1[178]S2:A1[178]S1:A0[178]K(I,1):B0[178]K(I,2):KD[178]1:[141]8220:KD[178]0
11115 [139][187](1)[177].3[167]11120
11118 [158]5451:B[178]4:[141]12400:[153][163]6)"SYSKLINGON HAS SELF DESTRUCTED":[137]4580
11120 N%[178][186](X[174]2[170]A[174]2):G[178]DI:Y0[178]K(I,1):X0[178]K(I,2):KM[178]1:B[178]1:FL[178]0:[141]2600:KM[178]0
11125 [139]FL[178]1[167][158]5451:B[178]4:[141]12400:[153]"SYS    KLINGON DESTROYED BY SPACEMINE":[137]4580
11130 [153][163]10)"PRINTTRACTORING COMPLETED"
11140 [130]I:TB[178]0:[137]1990
12000 [139]B[179][177]4[167]PO[178]1022[170](X3[172]2)[172]40[170](Y3[172]4)[170]PC
12020 [151]PO,42:[129]IT[178]1[164]8:[130]IT:[151]PO,32:[142]
12100 [139]D(2)[179]0[167][142]
12101 PO[178]1022[170](X3[172]2)[172]40[170](Y3[172]4)
12104 [141]12000:[141]16200:[158]5485
12105 PO[178]PO[171]41:[151]51636,PO[175]255:[151]51637,PO[173]256:[158]51668:[142]
12400 [139]D(2)[179]0[167][142]
12410 PO[178]1022[170](K(I,1)[172]2)[172]40[170](K(I,2)[172]4)[170]PC:[141]12104:[142]
12999 [143] PHSER SET UP
13000 [139]I[178]1[167]H5[178]H1:C4[178]K(1,3)
13110 [139]I[178]2[167]H6[178]H1:C2[178]K(2,3)
13120 [139]I[178]3[167]H7[178]H1:C3[178]K(3,3)
13200 [145]I[137]13210,13220,13230
13210 [139]C4[179][178]0[167]H2[178]2:[142]
13215 [137]13240
13220 [139]C2[179][178]0[167]H3[178]2:[142]
13225 [137]13240
13230 [139]C3[179][178]0[167]H4[178]2:[142]
13240 [145]I[137]13250,13260,13270
13250 C4[178]C4[170]H5:[139]H5[177].15[172]C4[175]C4[171]H5[177]0[167]H2[178]1:[142]
13260 C2[178]C2[170]H6:[139]H6[177].15[172]C2[175]C2[171]H6[177]0[167]H3[178]1:[142]
13270 C3[178]C3[170]H7:[139]H7[177].15[172]C3[175]C3[171]H7[177]0[167]H4[178]1:[142]
13280 [145]I[137]13290,13300,13310
13290 H2[178]0:[142]
13300 H3[178]0:[142]
13310 H4[178]0:[142]
13500 [139]I[178]1[167]H2[178][171]1:[142]
13510 [139]I[178]2[167]H3[178][171]1:[142]
13520 [139]I[178]3[167]H4[178][171]1:[142]
14100 DM[178]1:U$[178]"SYSSENSORS:DEF NO DAMAGE TO ENEMY AT LIST"
14110 W$[178]"SYSUNITS HIT KLINGON - SECTORLIST"
14120 E$[178]"PRINT      *** KLINGON DESTROYED ***LIST"
14130 R$[178]"SYS    SENSORS:PRINT":Y$[178]"SYSUNITS REMAININGLIST"
14200 [139]H2[178][171]1[137]14250
14210 [139]H2[178]0[167][153]U$;K(1,1);",";K(1,2):[137]14250
14220 [139]H2[177]0[167][153]H5;W$;K(1,1);",";K(1,2)
14225 [139]H2[178]1[167][153]R$;[181]((C4[171]H5)[172]100)[172].01;Y$:[137]14250
14230 [139]H2[178]2[167][153]E$
14250 [139]H3[178][171]1[137]14300
14260 [139]H3[178]0[167][153]U$;K(2,1);",";K(2,2):[137]14300
14270 [139]H3[177]0[167][153]H6;W$;K(2,1);",";K(2,2)
14275 [139]H3[178]1[167][153]R$;[181]((C2[171]H6)[172]100)[172].01;Y$:[137]14300
14280 [139]H3[178]2[167][153]E$
14300 [139]H4[178][171]1[167][142]
14310 [139]H4[178]0[167][153]U$;K(3,1);",";K(3,2):[142]
14320 [139]H4[177]0[167][153]H7;W$;K(3,1);",";K(3,2)
14325 [139]H4[178]1[167][153]R$;[181]((C3[171]H7)[172]100)[172].01;Y$:[142]
14330 [139]H4[178]2[167][153]E$:[142]
15000 V[178]54272:L1[178]V:L2[178]L1[170]7:L3[178]54286:H1[178]L1[170]1:H2[178]L2[170]1:H3[178]L3[170]1:V1[178]L1[170]4:V2[178]L2[170]4
15010 V3[178]L3[170]4:[129]J[178]V[164]54296:[151]J,0:[130]:[151]V[170]24,15
15040 [151]V1[170]1,40:[151]V1[170]2,64:[151]V2[170]1,40:[151]V2[170]2,72:[151]V3[170]1,28:[151]V3[170]2,72
15070 T[178]TI:F[178]2.0
15080 [151]V1,32:[151]V2,16:[151]V3,16
15090 [135]S:[139]S[178]0[137]15170
15100 [135]X1,Y1,X2,Y2,X3,Y3
15110 [151]H1,X1:[151]L1,Y1:[151]V1,33:[151]H2,X2:[151]L2,Y2:[151]V2,17:[151]H3,X3:[151]L3,Y3:[151]V3,17
15140 T[178]T[170]S[172]F
15150 [139]T[177]TI[137]15150
15160 [137]15080
15170 [151]V[170]24,31:[151]V[170]22,88:[151]V[170]23,247:[142]
15400 [139][194](1665)[179][177]64[175][194](1705)[179][177]64[167][142]
15402 [139]NB[178]1[175]KD[178]1[167][142]
15405 [139]B[178]1[175]KD[178]0[167]15430
15410 N1[178]4:N2[178]4:N3[178]5:[137]15530
15430 N1[178]8:N2[178]6:N3[178]7:PO[178]1024[170]([181](Y0)[172]2)[172]40[170]([181](X0)[172]4)[171]2[170]PC
15435 [139]KM[178]1[167][151]51568,1:[158]51569
15530 WS[178]12:X0[178]32[170]32[172](X0[171]1):Y0[178]58[170]16[172](Y0[171]1)[170]SC:[139]HM[178]1[167]X8[178]X1:Y8[178]Y1:X1[178]X7:Y1[178]Y7
15540 X9[178]X1:X1[178]32[170]32[172](X1[171]1):Y9[178]Y1:Y1[178]58[170]16[172](Y1[171]1)[170]SC:YR[178]Y0[171]Y1:XR[178]X0[171]X1
15545 [139]X0[177]255[167]X0[178]255
15550 [139]X1[177]255[167]XV[178]X1[171]256:X1[178]255:Y1[178][181](Y1[170].5[170](YR[172]XV)[173][182](XR[170]1))
15560 [139]X1[179]32[167]XV[178]32[171]X1:X1[178]32:Y1[178][181](Y1[170].5[170](YR[172]XV)[173][182](XR[170]1))
15570 [139]KP[178]1[176](B[178]4[175]KD[178]0)[167][158]52770,1,Y0,X0,Y1,X1,4:[142]
15580 YR[178]Y0[171]Y1:XR[178]X0[171]X1:[139]B[178]1[175]KD[178]0[167][151]2043,11:[137]15620
15600 [151]2042,15
15620 [139]B[178]1[175]KD[178]0[175]XR[177]0[175]HM[179][177]2[175]KM[178]0[167][151]176,192:[151]177,2:[158]51200:ER[178]1
15625 [139]B[178]1[175]KM[178]1[175]XR[179]0[167][151]176,192:[151]177,2:[158]51200:KR[178]1
15630 [139]B[178]1[175]KM[178]0[167]WS[178]9.5[171].5[172]W1:[139]W1[179]1[167]WS[178]20[171]10[172]W1
15640 [139][182](XR)[179]2[175][182](YR)[179]2[167][141]15940:[137]15860
15645 [151]VI[170]21,N1
15650 [141]15940:[158]51786,N1,Y0,X0,Y1,X1,WS
15860 [139]HM[178]1[167][158]5451:Y3[178]X7:X3[178]Y7:[141]12000:[141]16240:X0[178]X7:Y0[178]Y7:X1[178]X8:Y1[178]Y8
15861 [139]HM[178]1[167]HM[178]2:[141]16110:[137]15530
15865 [139]KD[178]0[175]SO[178]0[175]B[178]1[167]15900
15870 [151]VI[170]21,0:[158]52854
15875 [139]ER[178]1[167]ER[178]0:[151]176,192:[151]177,2:[158]51200
15880 [139]KR[178]1[167]KR[178]0:[151]176,192:[151]177,2:[158]51200
15885 [139]KM[178]1[167][151]51568,0:[158]51569
15890 [142]
15900 PO[178]1022[170]([181](Y9)[172]2)[172]40[170]([181](X9)[172]4)[170]PC
15910 [139]KM[178]0[167][141]16120:[151]PO[171]1,65:[151]PO,83:[151]PO[170]1,88:[137]15870
15920 [151]PO[171]1[170]V,12:[151]PO[171]1,90:[151]PO[170]V,12:[151]PO,27:[151]PO[170]1[170]V,12:[151]PO[170]1,29:[137]15870
15940 [139]B[178]5[175]KD[178]0[167][141]10200:[142]
15945 [139]B[178]1[175]KD[178]0[167][151]PO[171]1,32:[151]PO,32:[151]PO[170]1,32
15946 [142]
16100 [158]5451:Y3[178]X7:X3[178]Y7
16110 Z1[178]X3:Z2[178]Y3:A$[178]"":[141]8670
16120 L[178]V[170]PO:[151]L[171]1,1:[151]L,1:[151]L[170]1,1:[142]
16200 [139]B[178]4[175]KD[178]0[167]16220
16210 X0[178]31[170]32[172](Y3[171]1):Y0[178]61[170]16[172](X3[171]1):[137]16260
16220 X0[178]31[170]32[172](K(I,2)[171]1):Y0[178]61[170]16[172](K(I,1)[171]1)[170]SC:[137]16260
16240 X0[178]X1:Y0[178]Y1
16260 [151]VI,X0:[151]VI[170]1,Y0:[151]VI[170]21,[194](VI[170]21)[176]1
16270 [129]EX[178]1[164]4:[151]2040,13:[129]TD[178]1[164]22:[130]TD:[151]2040,14:[129]TD[178]1[164]22:[130]TD,EX
16300 [151]VI[170]21,[194](VI[170]21)[175]254:[142]
16450 [158]52480:[153]""[163]25)"WAITSYSDEVICES DOWN":[153][163]25)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(":DD[178]0
16505 [139]D(6)[179]0[167][153][163]24)"DEFDAMAGE CONTROL":[153][163]25)"UNSERVICEABLESYS":[137]16540
16510 [129]I[178]1[164]9:[139]D(I)[178][177]0[167]16530
16520 [141]16900:[153][163]22)G2$[181](D(I)[172]10)[172].1:DD[178]1
16530 [130]:[139]DD[179][177]1[167][153][163]26)"PRINTALL SYSTEMS":[153][163]26)"OPERATIONALSYS
16540 PRINT""TAB(17)Q$Q$"UPDATE[157][157][157][157][157][157][163][163][163][163][163][163]"
16650 PRINTTAB(7)Q$"[158]STARDATES REMAINING"SPC(4).1*INT((T0+T9-T)*10)
16660 PRINTTAB(7)"[150]KLINGONS REMAINING"SPC(5)INT(K9)
16670 PRINTTAB(7)"[153]KLINGONS DESTROYED"SPC(5)INT(K7-K9)
16685 PRINTTAB(7)"[159]PHOTON TORPEDOS"SPC(8)INT(P):RETURN
16900 ONIGOTO16910,16920,5,16940,16950,5,16970,16980,16990
16910 G2$="W. ENGINES  ":RETURN
16920 G2$="S.R. SCAN   ":RETURN
16940 G2$="PHASERS     ":RETURN
16950 G2$="PHOTON TOR  ":RETURN
16970 G2$="SHIELD CON  ":RETURN
16980 G2$="L.COMPUTER  ":RETURN
16990 G2$="TRACT BEAM  ":RETURN
17000 B1=S2:A1=S1:A0=K(I,1):B0=K(I,2):GOSUB8220
17010 IFRND(1)>.5ANDDI<8THENDI=DI+RND(1)*(1/FND(1)):GOTO17030
17020 IFDI>2THENDI=DI-RND(1)*(1/FND(1))
17030 X=K(I,1):Y=K(I,2):G=DI:EH=0:K(I,3)=K(I,3)*.90:IFNB=1THENG=FNR(1)
17035 GOTO4835
17040 IFEH=0THEN6200
17050 ET=ET+1:IFET=3ANDNB=0THENPRINT"[150]HIT BY TOO MANY TORPEDOS[155]":GOTO6240
17060 IFNB=0THENS=S-(INT(RND(1)*150)+350)
17070 SYS5451:GOSUB16240:PRINTTAB(9)"[150]HIT BY PHOTON TORPEDO[155]":GOTO6085
23000 PRINT"[147]"TAB(31)Q$"[176][177][174]
23060 [153][163]13)"TOTOTOTOTOTOTOTOTOTOTOTOTO    (null)(null)USR(null)(null)
23065 PRINTTAB(13)"[205][175][186][175][175][186][175][175][186][175][175][206][165][205]  [206] [165] [167] [205]  [206]
23070 [153][163]23)"+(null)FNTHENTOSQRTAB(TAB(TAB(TAB(TAB(TAB(TAB((null)TOFN
23075 PRINTTAB(23)"[170][180][165][167][163][208][164][164][164][164][164][164][164][207][163][165]
23080 [153][163]13)"(null)USR(null)USRUSR(null)USRUSR(null)USRUSR(null)FN(null)  (null) FN THEN (null)  (null)
23085 PRINTTAB(13)"[163][163][163][163][163][163][163][163][163][163][163][163][163]    [205][204][175][186][206]
23090 [153][163]31)"/=EXP
23180 IFL4=1THENL4=0:RETURN
23200 C$="[150]*** WARNING ***":SE=10:C1$="S"
23240 PRINT"[147]"TAB(12)C$
23250 PRINTTAB(2)"ONBOARD COMPUTERS ARE MALFUNCTIONING"
23270 PRINT"PREPARE FOR MANUAL DOCKING PROCEDURE"
23280 PRINT"SWITCHING TO VISUAL IN:"
23290 PRINTTAB(17+2-LEN(STR$(SE)))SE" SECOND"C1$
23300 SE=SE-1:IFSE=-1THEN23500
23310 IFSE=1THENC1$=" "
23320 FORTD=1TO250:NEXT:TD=0
23330 PRINT""TAB(12)Z$:D9=D9+1:IFD9=2THENPRINTQ$"":D9=0:GOTO23290
23340 FORTD=1TO110:NEXT:TD=0:PRINT""TAB(12)C$:GOTO23320
23500 PRINT"[147]":SYS49814:PRINT""TAB(31)Q$"[146][174]
23510 [153][163]24)"POSPOSPOSPOSPOSRND(null)TAB((null)*POSPOSPOSPOSPOS
23520 PRINTTAB(29)"[161][165] [167][182]
23530 [153][163]24)"FREFREFREFREFRECOS(null)TO(null)LOGFREFREFREFREFRECMDCMDCMDCMDCMDCMDCMDCMD/
23600 IFL4=1THENL4=0:RETURN
24000 M=4:YS=INT(RND(0)*50+75):XS=10
24020 L1=0:L2=0:L3=0:XS=25:YS=INT(RND(0)*50)+75
24025 POKEVI+23,0:POKEVI+29,0:POKEVI+21,8:POKE2043,11:POKEVI+6,XS:POKEVI+7,YS
24050 SYS51489:XS=PEEK(VI+6):YS=PEEK(VI+7)
24150 IFL1=1THEN24180
24160 IFXS=>185THENL1=1:GOSUB25000
24170 IFL1=0THENRA=(240-XS)*100+1600:GOTO24250
24180 RA=(155-XS)*50
24190 IFXS<=20ANDL1=1THENL1=0:GOSUB25100
24200 IF(PEEK(VI+31)AND8)=8THENL2=1:L3=L3+1:GOTO24220
24210 L2=0:L3=0:GOTO24250
24220 IFL3=1THENTB=TI+200
24230 IFL2=0THEN24250
24240 IFTB=<TITHENPRINT"[147]":GOTO6220
24250 PRINT""TAB(5)"RANGE";RA;"[157]  ";TAB(20)"VELOCITY 100"
24449 IFL1=1THENPOKE1336,81:POKE1696,40
24450 IFPEEK(VI+23)=0THEN24050
24451 IFXS>=145ANDXS<=155ANDYS>=122ANDYS<=124THENPRINT"DOCKED":GOTO24453
24452 GOTO24050
24453 FORX=1TO3000:NEXT:POKEVI+21,0:POKEVI+23,0:POKEVI+29,0
24454 POKEVI+7,0:PRINT"[147]":RETURN
25000 POKEVI+21,0
25010 L4=1:GOSUB23000:XS=50
25020 POKEVI+23,8:POKEVI+29,8:POKEVI+6,XS:POKEVI+7,YS:POKEVI+21,8:RETURN
25100 POKEVI+21,0:L4=1:GOSUB23500:XS=180:POKEVI+23,0:POKEVI+29,0:POKEVI+6,XS:POKEVI+7,YS
25140 POKEVI+21,8:RETURN
40500 FORLO=1TO31:READSL:FORII=0TO7:READQ:POKESL+II,Q:NEXTII,LO:RETURN
60000 DATA30,34,75,17,37,8,147,8,45,198,22,227,11,114
60015 DATA35,61,126,30,141,15,70,8,57,172,28,214,14,107
60025 DATA9,45,198,22,227,11,114,9,38,126,19,63,9,159
60035 DATA9,51,97,25,177,12,216,40,68,149,34,75,17,37
60045 DATA5,,,,,,,5,68,149,34,75,17,37,40,86,105,43,52,21,154,0
60100 DATA3352,8,8,24,16,48,32,32,254
60110 DATA3360,254,32,32,48,16,24,8,8
60150 DATA2568,255,127,1,0,1,3,0,0
60151 DATA2712,128,131,1,131,255,255,255,
60152 DATA2752,120,255,176,0,0,128,0,0
60160 DATA2768,96,248,255,188,112,0,0,0
60161 DATA2264,0,0,255,7,0,0,0,0
60162 DATA2280,0,240,224,252,56,48,255,255
60170 DATA2328,252,66,253,0,0,253,66,252
60171 DATA2736,189,126,129,189,189,129,126,189
60172 DATA2272,63,66,191,0,0,191,66,63
60180 DATA2344,1,0,4,1,0,2,0,1
60181 DATA2352,36,129,24,60,60,24,129,36
60182 DATA2296,128,0,32,128,0,64,0,128
60190 DATA2744,,,,,,,,
60191 DATA2888,,,,56,,,,
60200 DATA3496,,12,,192,,,48,
60201 DATA3504,,,96,,6,,24,
60202 DATA3512,24,,3,,,192,,
60203 DATA3520,,,,12,,96,,6
60204 DATA3528,48,,,,,6,,12
60300 DATA2432,62,99,99,0,99,99,62,0
60305 DATA2440,24,24,24,0,24,24,24,0
60310 DATA2448,62,3,3,62,96,96,62,0
60315 DATA2456,62,3,3,28,3,3,62,0
60320 DATA2464,99,99,99,60,3,3,3,0
60325 DATA2472,62,96,96,62,3,3,62,0
60330 DATA2480,62,96,96,30,99,99,62,0
60335 DATA2488,126,3,3,0,3,3,3,0
60340 DATA2496,62,99,99,62,99,99,62,0
60345 DATA2504,62,99,99,60,3,3,62,0
61200 DATA10,14,107,57,172,28,214,20,25,177,102,194,51,97
61210 DATA8,24,63,96,254,48,127,8,21,154,86,105,43,52
61220 DATA8,19,63,76,252,38,126,8,18,42,72,169,36,85
61235 DATA20,17,37,68,149,34,75,10,15,70,61,126,30,141
61245 DATA15,14,107,57,172,28,214,20,28,214,115,88,57,172
61255 DATA7,25,177,102,194,51,97,7,24,63,96,254,48,127
61265 DATA7,21,154,86,105,43,52,7,19,63,76,252,38,126
61275 DATA20,18,42,72,169,36,85,10,17,37,68,149,34,75
61285 DATA20,16,47,64,188,32,94,8,18,42,72,169,36,85
61295 DATA8,19,63,76,252,38,126,8,21,154,86,105,43,52
61305 DATA8,24,63,96,254,48,127,8,25,177,102,194,51,97
61315 DATA8,24,63,96,254,48,127,20,28,214,115,88,57,172
61325 DATA30,34,75,137,4,68,149,10,32,94,128,120,64,188
61335 DATA15,28,214,115,88,57,172,20,16,47,64,188,32,94
61345 DATA10,21,154,86,105,43,52,40,19,63,76,252,38,126
61355 DATA15,21,154,86,105,43,52,15,25,177,102,194,51,97
61365 DATA15,32,94,128,120,64,188,80,38,126,153,247,76,252,0
63000 FORX=0TO242STEP3
63010 IFPEEK(X+50450)>0 AND PEEK(X+50452)>0 THENPOKEX+50450,0
63020 IFPEEK(X+50450)>0 AND PEEK(X+50452)=0 THENPRINTX
63030 NEXTX:GOTO1990